$infile = $ARGV[0];
chomp($infile);
#$outfile = $ARGV[1];
#chomp($outfile);
open(BUFF,$infile);
#open(WRBUFF,">$outfile");
while($line=<BUFF>)
{
	chomp($line);
	@array = split(" ",$line);
	if($array[0] eq "2324" || $array[0] eq "0" ||  $array[0] eq "26T" || $array[0] eq "---")
	{
		print $array[1]."\n";
	}
	else
	{
		if($array[0] eq "26T")
		{
			$array[0] = "26";
			$line = join(" ",@array);
		}
		#print WRBUFF $line."\n";
	}
}
